
PROGRAM 0   216 BYTES

   DPY-** 6802-6802NS-6808
   DPY-+ POD TESTS **#
   EXECUTE PROGRAM 97
   DPY-** REV 1.0 **#
   EXECUTE PROGRAM 97
   DPY-*** FLUKE CUSTOMER
   DPY-+ SERVICE ***#
   EXECUTE PROGRAM 97
0: LABEL 0
   DPY-TEST? 1-POD NORMAL
   DPY-+ 2-POD RUN UUT
1: LABEL 1
   DPY-+#
   REG1 = 40
   DPY-+%1
2: LABEL 2
   IF REG1 = 40 GOTO 2
   IF REG1 = 1 GOTO 3
   IF REG1 = 2 GOTO 4
   GOTO 1
3: LABEL 3
   EXECUTE PROGRAM 64
   GOTO 0
4: LABEL 4
   EXECUTE PROGRAM 65
   GOTO 0

PROGRAM 1   9 BYTES

   READ PROBE
   READ PROBE
   REGC = REG0

PROGRAM 2   18 BYTES

   READ PROBE
   ATOG @ 0 BIT REGD REPT REPT REPT
   READ PROBE
   REGC = REG0

PROGRAM 3   24 BYTES

   READ PROBE
   DTOG @ FFFF = FF BIT REGD REPT REPT REPT
   READ PROBE
   REGC = REG0

PROGRAM 4   28 BYTES

   SYNC FREE-RUN
   READ PROBE
   DTOG @ CTL = 00000000 BIT REGD REPT REPT REPT
   READ PROBE
   REGC = REG0

PROGRAM 5   13 BYTES

   READ PROBE
   EXECUTE PROGRAM 98
   READ PROBE
   REGC = REG0

PROGRAM 6   76 BYTES

   REG1 = 5
0: LABEL 0
   READ PROBE
   RAMP @ FFFF
   READ PROBE
   REGC = REG0
   REG0 = REG0 SHR SHR SHR SHR
   REG0 = REG0 SHR SHR SHR SHR AND FFFF
   IF REGA = REG0 GOTO 1
   GOTO 2
1: LABEL 1
   DEC REG1
   IF REG1 > 0 GOTO 0
2: LABEL 2

PROGRAM 64   1096 BYTES

0: LABEL 0
   DPY-ENTER STARTING TEST 1-13 ?
   DPY-+\1
   IF REG1 = 1 GOTO 1
   IF REG1 = 2 GOTO 2
   IF REG1 = 3 GOTO 3
   IF REG1 = 4 GOTO 4
   IF REG1 = 5 GOTO 5
   IF REG1 = 6 GOTO 6
   IF REG1 = 7 GOTO 7
   IF REG1 = 8 GOTO 8
   IF REG1 = 9 GOTO A
   IF REG1 = A GOTO C
   IF REG1 = B GOTO D
   IF REG1 = C GOTO E
   IF REG1 = D GOTO F
   GOTO 0
1: LABEL 1
   DPY-POWER SUPPLY CHECK#
   EXECUTE PROGRAM 97
   REG8 = 00041065
   EXECUTE PROGRAM 94
   REG8 = 00011063
   EXECUTE PROGRAM 94
2: LABEL 2
   DPY-CLOCK TEST#
   EXECUTE PROGRAM 97
   REG8 = 0005105D
   EXECUTE PROGRAM 94
3: LABEL 3
   DPY-STATUS CHECK#
   EXECUTE PROGRAM 97
   REG8 = 00011059
   EXECUTE PROGRAM 94
   REG8 = 0001105A
   EXECUTE PROGRAM 94
   REG8 = 0001105B
   EXECUTE PROGRAM 94
   REG8 = 0001105C
   EXECUTE PROGRAM 94
   REG8 = 0001105E
   EXECUTE PROGRAM 94
   REG8 = 0004105F
   EXECUTE PROGRAM 94
4: LABEL 4
   DPY-READ STATUS TEST-WAIT#
   EXECUTE PROGRAM 97
   REG8 = 00010819
   EXECUTE PROGRAM 92
   REG8 = 0000881A
   EXECUTE PROGRAM 92
   REG8 = 0000481B
   EXECUTE PROGRAM 92
   REG8 = 0000181C
   EXECUTE PROGRAM 92
   REG8 = 0000281E
   EXECUTE PROGRAM 92
   REG8 = 0002001F
   EXECUTE PROGRAM 92
   REG8 = 00010099
   EXECUTE PROGRAM 92
   REG8 = 0000809A
   EXECUTE PROGRAM 92
   REG8 = 0000409B
   EXECUTE PROGRAM 92
   REG8 = 0000109C
   EXECUTE PROGRAM 92
   REG8 = 0000209E
   EXECUTE PROGRAM 92
   REG8 = 0002099F
   EXECUTE PROGRAM 92
5: LABEL 5
   DPY-POWER SUPPLY STATUS TEST#
   EXECUTE PROGRAM 97
   REG8 = 00080000
   EXECUTE PROGRAM 92
   REG8 = 00080A00
   EXECUTE PROGRAM 92
   REG8 = 00080C00
   EXECUTE PROGRAM 92
6: LABEL 6
   DPY-CONTROL CHECK#
   EXECUTE PROGRAM 97
   REG8 = 00041060
   EXECUTE PROGRAM 94
   REG8 = 00051061
   EXECUTE PROGRAM 94
   REG8 = 00011062
   EXECUTE PROGRAM 94
7: LABEL 7
   DPY-WRITE CONTROL TEST#
   EXECUTE PROGRAM 97
   REGD = 0
   REG8 = 00051120
   EXECUTE PROGRAM 94
8: LABEL 8
   DPY-ADDRESS TOGGLE TEST#
   EXECUTE PROGRAM 97
   REGD = 0
   REG8 = 00055081
9: LABEL 9
   EXECUTE PROGRAM 94
   INC REGD
   INC REG8
   IF 10 > REGD GOTO 9
A: LABEL A
   DPY-DATA TOGGLE TEST#
   EXECUTE PROGRAM 97
   REGD = 0
   REG8 = 00590D1
B: LABEL B
   EXECUTE PROGRAM 94
   INC REGD
   INC REG8
   IF 8 > REGD GOTO B
C: LABEL C
   DPY-BUS TEST#
   EXECUTE PROGRAM 97
   DPY-+-WAIT
   BUS TEST
D: LABEL D
   DPY-READ DATA TEST-WAIT#
   EXECUTE PROGRAM 97
   REG8 = 0000FF
   EXECUTE PROGRAM 90
E: LABEL E
   DPY-SIGNATURE STABILITY TEST#
   EXECUTE PROGRAM 97
   REG8 = 96EC8191
   EXECUTE PROGRAM 94
F: LABEL F
   DPY-FIXTURE ROM TEST#
   EXECUTE PROGRAM 97
   DPY-+ WAIT
   ROM TEST @ 0-FFF SIG 698C
   DPY-*** NORMAL TEST
   DPY-+ COMPLETE ***#
   EXECUTE PROGRAM 97

PROGRAM 65   994 BYTES

   DPY-*** POD 'RUN UUT'
   DPY-+ TESTS ***#
   EXECUTE PROGRAM 97
0: LABEL 0
   DPY-'RUN UUT' CONTROL TESTS#
   EXECUTE PROGRAM 97
   RUN UUT @ 0
   DPY-TOUCH TP25 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 00041060
   EXECUTE PROGRAM 94
   REG8 = 00051061
   EXECUTE PROGRAM 94
   REG8 = 00051062
   EXECUTE PROGRAM 94
1: LABEL 1
   DPY-'RUN UUT' ADDRESS TESTS#
   EXECUTE PROGRAM 97
   REG8 = 00051041
2: LABEL 2
   EXECUTE PROGRAM 94
   INC REG8
   IF 00051047 > REG8 GOTO 2
   REG8 = 00041047
3: LABEL 3
   EXECUTE PROGRAM 94
   INC REG8
   IF 0004104C > REG8 GOTO 3
   REG8 = 0005104C
   EXECUTE PROGRAM 94
   REG8 = 0005104D
   EXECUTE PROGRAM 94
   REG8 = 0004104E
   EXECUTE PROGRAM 94
   REG8 = 0004104F
   EXECUTE PROGRAM 94
   REG8 = 00041050
   EXECUTE PROGRAM 94
4: LABEL 4
   DPY-'RUN UUT' DATA TESTS#
   EXECUTE PROGRAM 97
   REG8 = 0071051
5: LABEL 5
   EXECUTE PROGRAM 94
   INC REG8
   IF 0071059 > REG8 GOTO 5
6: LABEL 6
   DPY-'RUN UUT' INTERNAL
   DPY-+ RAM TEST#
   EXECUTE PROGRAM 97
   DPY-TIE TP31 HIGH
   DPY-+ THEN PRESS CONT#
   STOP
   DPY-TOUCH TP25 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 0005104E
   EXECUTE PROGRAM 94
   DPY-REMOVE JUMPER
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 00011041
   EXECUTE PROGRAM 94
7: LABEL 7
   DPY-'RUN UUT' IRQ TEST#
   EXECUTE PROGRAM 97
   DPY-TOUCH TP26 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 0005104F
   EXECUTE PROGRAM 94
8: LABEL 8
   DPY-'RUN UUT' NMI TEST#
   EXECUTE PROGRAM 97
   DPY-TOUCH TP27 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 00051050
   EXECUTE PROGRAM 94
9: LABEL 9
   DPY-'RUN UUT' HALT TEST#
   EXECUTE PROGRAM 97
   DPY-TIE TP28 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 00002041
   EXECUTE PROGRAM 94
   DPY-REMOVE JUMPER
   DPY-+ THEN PRESS CONT#
   STOP
A: LABEL A
   DPY-'RUN UUT' MEM READY TEST#
   EXECUTE PROGRAM 97
   DPY-TIE TP30 LOW
   DPY-+ THEN PRESS CONT#
   STOP
   REG8 = 00002041
   EXECUTE PROGRAM 94
   DPY-*** RUN UUT TEST
   DPY-+ COMPLETE ***#
   EXECUTE PROGRAM 97

PROGRAM 90   283 BYTES

   REG2 = REG8 AND FF
   REG3 = REG8 SHR SHR SHR SHR
   REG3 = REG3 SHR SHR SHR SHR
   REG3 = REG3 AND FFFF
   READ @ REG3
   DPY-READ DATA $2=$E
   IF REG2 = REGE GOTO 6
   DPY-+ FAIL LOOP?#
   EXECUTE PROGRAM 98
   DPY-+#
   EXECUTE PROGRAM 98
0: LABEL 0
   DPY-+#
   REG1 = 40
   DPY-+%1
1: LABEL 1
   IF REG1 = 40 GOTO 1
   IF REG1 = 1C GOTO 2
   IF REG1 = 27 GOTO 2
   IF REG1 = 1D GOTO F
   IF REG1 = 25 GOTO F
   GOTO 0
2: LABEL 2
   REGB = 40
   DPY-+%B
3: LABEL 3
   READ @ REG3
   DPY-READ DATA $2=$E
   IF REG2 = REGE GOTO 4
   DPY-+ FAIL
   GOTO 5
4: LABEL 4
   DPY-+ PASS#
5: LABEL 5
   IF REGB = 40 GOTO 3
   IF REGB = 25 GOTO F
   DPY-+#
   GOTO 2
6: LABEL 6
   DPY-+ PASS#
   EXECUTE PROGRAM 98
F: LABEL F

PROGRAM 91   257 BYTES

   READ @ STS REPT
   REGC = REGC AND FF
   REGA = REG8 SHR SHR SHR SHR
   REGA = REGA SHR SHR SHR SHR
   REGA = REGA SHR SHR SHR SHR
   REGA = REGA AND FF
   IF REG9 > 0 GOTO 0
   DPY-POWER
   GOTO 1
0: LABEL 0
   DPY-TP@9
1: LABEL 1
   IF REG8 AND 800 = 800 GOTO 2
   CPL REGC
   REGC = REGC AND FF
   DPY-+ STATUS LOW=
   GOTO 3
2: LABEL 2
   DPY-+ STATUS HIGH=
3: LABEL 3
   IF REGA AND REGC = REGA GOTO 5
   IF REG8 AND 800 = 800 GOTO 4
   DPY-+HIGH FAIL
   GOTO F
4: LABEL 4
   DPY-+LOW FAIL
   GOTO F
5: LABEL 5
   IF REG8 AND 800 = 800 GOTO 6
   DPY-+LOW PASS#
   GOTO F
6: LABEL 6
   DPY-+HIGH PASS#
F: LABEL F

PROGRAM 92   485 BYTES

   REG9 = REG8 AND 3F
   IF REG8 AND 80 = 0 GOTO 3
0: LABEL 0
   DPY-JUMPER TP@9
   IF REG8 AND 100 = 100 GOTO 1
   DPY-+ LOW
   GOTO 2
1: LABEL 1
   DPY-+ HIGH
2: LABEL 2
   DPY-+ THEN PRESS CONT#
   STOP
3: LABEL 3
   IF REG8 AND 600 = 0 GOTO 4
   REGD = REG8 SHR SHR SHR SHR
   REGD = REGD SHR SHR SHR SHR
   REGD = REGD SHR AND 3
   DPY-HOLD SWITCH 
   DPY-+@D THEN PRESS CONT#
   STOP
4: LABEL 4
   EXECUTE PROGRAM 91
   IF REGA AND REGC = REGA GOTO B
   DPY-+ LOOP?#
   EXECUTE PROGRAM 98
   DPY-+#
   EXECUTE PROGRAM 98
5: LABEL 5
   DPY-+#
   REG1 = 40
   DPY-+%1
6: LABEL 6
   IF REG1 = 40 GOTO 6
   IF REG1 = 1C GOTO 7
   IF REG1 = 27 GOTO 7
   IF REG1 = 1D GOTO B
   IF REG1 = 25 GOTO B
   GOTO 5
7: LABEL 7
   REGB = 40
   DPY-+%B
8: LABEL 8
   EXECUTE PROGRAM 91
   IF REGA AND REGC = REGA GOTO 9
   GOTO A
9: LABEL 9
   DPY-+#
A: LABEL A
   IF REGB = 40 GOTO 8
   IF REGB = 25 GOTO B
   DPY-+#
   GOTO 7
B: LABEL B
   EXECUTE PROGRAM 98
C: LABEL C
   IF REG8 AND 80 = 80 GOTO D
   IF REG8 AND 600 > 0 GOTO E
   GOTO F
D: LABEL D
   DPY-REMOVE JUMPER
   DPY-+ THEN PRESS CONT#
   STOP
   GOTO F
E: LABEL E
   DPY-RELEASE SW@D
   DPY-+ THEN PRESS CONT#
   STOP
F: LABEL F

PROGRAM 93   441 BYTES

   IF REG8 AND 2000 = 2000 GOTO 1
   IF REG8 AND 1000 = 1000 GOTO 5
0: LABEL 0
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR AND FFFF
   DPY-TP@9 SIG $A=$C
   GOTO F
1: LABEL 1
   REGC = REGC AND 7F
   REG2 = REGA AND 7F
   REG1 = REGA SHR SHR SHR SHR SHR
   REG1 = REG1 SHR SHR SHR AND 7F
   IF REG1 > REG2 GOTO 2
   IF REGC > REG2 GOTO 3
   IF REG1 > REGC GOTO 3
   GOTO 4
2: LABEL 2
   IF REG2 >= REGC GOTO 4
   IF REGC >= REG1 GOTO 4
3: LABEL 3
   DPY-TP@9 COUNT @1-@2 =@C
   GOTO F
4: LABEL 4
   DPY-TP@9 COUNT @1-@2 =@C
   REGC = REGA
   GOTO F
5: LABEL 5
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR
   REGC = REGC SHR SHR SHR SHR
   DPY-TP@9 LOGIC LVL 
   IF REGA AND 1 = 0 GOTO 6
   DPY-+H
6: LABEL 6
   IF REGA AND 2 = 0 GOTO 7
   DPY-+X
7: LABEL 7
   IF REGA AND 4 = 0 GOTO 8
   DPY-+L
8: LABEL 8
   DPY-+=
9: LABEL 9
   IF REGC AND 1 = 0 GOTO A
   DPY-+H
A: LABEL A
   IF REGC AND 2 = 0 GOTO B
   DPY-+X
B: LABEL B
   IF REGC AND 4 = 0 GOTO C
   DPY-+L
C: LABEL C
   IF REGC > 0 GOTO F
   DPY-+X
F: LABEL F

PROGRAM 94   338 BYTES

   REG9 = REG8 AND 3F
   REGA = REG8 SHR SHR SHR SHR SHR SHR SHR SHR
   REGA = REGA SHR SHR SHR SHR SHR SHR SHR SHR
   DPY-PROBE TP@9
   EXECUTE PROGRAM 96
   SYNC FREE-RUN
   IF REG8 AND C000 = 0 GOTO 0
   SYNC ADDRESS
   IF REG8 AND 4000 > 0 GOTO 0
   SYNC DATA
0: LABEL 0
   REG2 = REG8 SHR SHR SHR SHR SHR SHR AND 3F
   EXECUTE PROGRAM REG2
   EXECUTE PROGRAM 93
   IF REGA = REGC GOTO 7
   DPY-+ FAIL LOOP?#
   EXECUTE PROGRAM 98
   DPY-+#
   EXECUTE PROGRAM 98
1: LABEL 1
   DPY-+#
   REG1 = 40
   DPY-+%1
2: LABEL 2
   IF REG1 = 40 GOTO 2
   IF REG1 = 1C GOTO 3
   IF REG1 = 27 GOTO 3
   IF REG1 = 1D GOTO 8
   IF REG1 = 25 GOTO 8
   GOTO 1
3: LABEL 3
   REGB = 40
   DPY-+%B
4: LABEL 4
   REG2 = REG8 SHR SHR SHR SHR SHR SHR AND 3F
   EXECUTE PROGRAM REG2
   EXECUTE PROGRAM 93
   IF REGA = REGC GOTO 5
   DPY-+ FAIL
   GOTO 6
5: LABEL 5
   DPY-+ PASS#
6: LABEL 6
   IF REGB = 40 GOTO 4
   IF REGB = 25 GOTO 8
   DPY-+#
   GOTO 3
7: LABEL 7
   DPY-+ PASS#
   EXECUTE PROGRAM 98
8: LABEL 8
   EXECUTE PROGRAM 95

PROGRAM 95   64 BYTES

   SYNC FREE-RUN
0: LABEL 0
   REG1 = 4
1: LABEL 1
   READ PROBE
   IF REG0 AND 5000000 = 0 GOTO 2
   DPY-REMOVE PROBE
   GOTO 0
2: LABEL 2
   DEC REG1
   IF REG1 > 0 GOTO 1

PROGRAM 96   62 BYTES

   SYNC FREE-RUN
   REG1 = 6F
0: LABEL 0
   DEC REG1
   IF REG1 = 0 GOTO F
   REG2 = 4
1: LABEL 1
   READ PROBE
   IF REG0 AND 5000000 = 0 GOTO 0
   DEC REG2
   IF REG2 > 0 GOTO 1
F: LABEL F

PROGRAM 97   17 BYTES

0: LABEL 0
   INC REG1
   IF 4F > REG1 GOTO 0

PROGRAM 98   16 BYTES

0: LABEL 0
   INC REG1
   IF F > REG1 GOTO 0
